home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1987 May / Ahoy_Magazine_87-05_1987_Double_L_Side_A.d64 / Graphic Wedge (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  52 lines
  1. 0 data"a000b197c169d251e133f208g160h032i253j192k165l144m201n252o008p141q076r145"
  2. 1 data"s173t002u024v096w177x007y210z162[194\200]254^255_232:001;056<176=233>230"
  3. 2 data"?003@009 181!198#207$006%095&172'217(074)193*195+221-224.105/010[255]"
  4. 3 data"c92,e;cqe115,che116,cje117,vza189,)j240,xhy^_q19,jvh234,*h121,am92,240,"
  5. 4 data"?q190,jh234,*h121,a140,161,b142,zbm85,f$h148,)q jm68,f$h22,[q jm82,f$"
  6. 5 data"h153,[q jmqf$h239,jq jm67,f$h *q jm72,f$hl*q jm84,f?q106,*m80,f11,c:p"
  7. 6 data"215,bh'jq jm69,f11,cap215,bh'jq jm83,f$h213,196,q jm79,f$h50,bq jm73,"
  8. 7 data"f?h17,j&161,b174,zbq115,aq121,afy#199,y)205,g['gy#[by212,g[m216,['ah178,"
  9. 8 data"wk100,p164,bk101,p163,bh155,183,142,166,bq241,*caedcvengac248,eic%e]c"
  10. 9 data"a153,248,%wdu/rdl5,c:153,248,%\jof=wdu/rdl$wi@:ri\f239,>n>]knm127,lxk"
  11. 10 data"dm64,l:vwdu/rdl$wi@:ri\j64,l237,kdu.;edlt>nga185,248,%17,drd\jof244,"
  12. 11 data"gakdu.oedlt>nkne]kd;=oei<t!]knm127,lxkdm64,l:vgaq:)cvene]ca170,edcxe"
  13. 12 data"igawd157,175,b\wd136,rd\\jof245,kdu.oedlt>n_-40,l+gawdri\wd136,rd\\j"
  14. 13 data"of245,kdu.oedlt>nkiu.oeilt>]knm128,fyzac126,e]cxeiga189,175,brikiu.o"
  15. 14 data"eilt>]_-40,l235,vc127,enc;edc127,e]c49,eizagxwd157,175,b136,wd\rd136,"
  16. 15 data"jaf245,kd;=oed<t!n_-40,l222,gxwdri136,wd\rd136,jaf245,kd;=oed<t!nki;"
  17. 16 data"=oei<t!]knm%f211,c;edc97,engaza189,175,brdkd;=oed<t!n_-40,l235,vc127,"
  18. 17 data"enc;edc%e]c247,eigazawdu(rdcaril4,c128,ri\jof235,kne]kd;=oei<t!]gawi"
  19. 18 data"u(ril@wdu.128,<trd\jof234,k]enkiedki;=oei<@!]k]m%f:v_-38,fmzagawiu(r"
  20. 19 data"il@c128,u113,d<trdwiu121,247,%<tri\jof-ki;=oei<t!]kiedk]enknm%f:vc%e"
  21. 20 data"]c247,eigaqs[fy#199,y)205,g['gy#[by212,g[m216,['st+@?pt+sa+41,n@?pa+"
  22. 21 data"c21,pufc27,p17,fcae!cap21,fvst+@?pt+sa+41,n@tpa+suf41,15,@120,pufs17,"
  23. 22 data"f@hp17,fvc92,encaedgazac:rd\jaf249,>n_-4,l242,cvengazacard\jaf249,_>"
  24. 23 data"n-hl242,v>122,ft>123,vs164,b(s163,b106,((pkbs166,b(((p167,bs166,b41,"
  25. 24 data"xp168,b174,167,bcapcbp170,b-a240,21,scbu.64,pcbl?238,170,b238,170,b202,"
  26. 25 data"q26,196,142,171,b142,&bskbu///l?238,&bu109,168,bp171,bl?238,&bscbu109,"
  27. 26 data"171,bp171,bl?238,&bs170,bu109,&bp&bcvu109,&bp&bs163,b41,xpsbcx;237,s"
  28. 27 data"bpsbc:za236,sb240,5,/_q136,196,p174,bs&be34,s171,be33,gas215,b240,31,"
  29. 28 data"w33,13,174,br33,vfy#199,y)205,g['gy#[by212,g[m216,['s174,b73,^p174,b"
  30. 29 data"w33,45,174,br33,vh106,*q228,196,147,14,o211,)214,bgaza134,!189,219,196,"
  31. 30 data"240,xhy^_q_196,gah#^153,=x\j16,<4,m13,f241,jt<:v140,_xcozog^h186,^s_"
  32. 31 data"xz=gxh189,^cae34,c92,e35,c34,zag128,h216,^vh106,*q65,b147,14,o204,#)"
  33. 32 data"196,gaza134,!189,;b240,xhy^_q69,bgah#^153,=x\j16,<4,m13,f241,jt<:v140,"
  34. 33 data"_xcozog^h186,^s_xz=gxh189,^hl*caz^g^h213,^vfy#199,y)205,g['gy#[by212,"
  35. 34 data"g[m216,[':^100,a12,100,12,4,a15,100,111,?oaaaaaaaaaaaaaaaaaaaaaaaaaa"
  36. 35 data"aaaaaaaaaaaaaa:m44,f16,h122,190,36,61,48,28,k85,mol22,pjt&)t185,61,@"
  37. 36 data"[255]"
  38. 200 dimb(96):gosub201:end
  39. 201 readd$:fori=1tolen(d$)step4:de$=mid$(d$,i,4):d1$=left$(de$,1)
  40. 202 ifd1$="[255]"then280
  41. 203 d2$=right$(de$,3):b(asc(d1$))=val(d2$):next:goto201
  42. 280 n$="gwml":open15,8,15,"s:"+n$:open1,8,1,"0:"+n$+",p,w"
  43. 290 print#1,chr$(000)chr$(192);
  44. 300 readb$:fora=1tolen(b$):a$=mid$(b$,a,1):ifa$=","thenb=val(c$):c$="":goto360
  45. 320 ifa$<":"anda$>"/"thenc$=c$+a$:next
  46. 330 ifa$="[255]"then370
  47. 340 b=b(asc(a$))
  48. 360 c=c+b:print#1,chr$(b);:next:goto300
  49. 370 ifc<> 215247 thenprint"check for typing error":goto390
  50. 380 printn$" saved to disk"
  51. 390 close1:close15:return
  52.